COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00006 ENDMK
C⊗;

      EXTERNAL FUNCTION GETINF(ARRAY J,INSR,INBT,INCH,INMX,INDR),
      RDSMPL(ARRAY N,BITS);
 
      ARRAY INF(1536);
      VARIABLE /CNT,/RD,/SCNT,INCH,INSR,INMX,INDR,INBT,INBUF,
      IX,/INC,RX,JZ,IZ;

      FUNCTION PRNTIT(CNT,INBT,INDR,INBUF);  
      BEGIN 
        INBUF←1535-512*INBT ;     
        PRINT "SRATE=",INSR," BITS=",12+INBT*6," NCHNS=",INCH,
        " MAXAMP=",INMX," DUR=",INDR/INSR/INCH;
            INDR←INDR-2;
      END;

      FUNCTION READIN(RD);
      BEGIN 		<DON'T FORGET TO INIT AND SCNT ← 0;
        IF SCNT=0 THEN BEGIN        
          GETINF(INF,INSR,INBT,INCH,INMX,INDR); <HEADER IS READ INTO ARRAY INF.
          PRNTIT(CNT,INBT,INDR,INBUF);
           RDSMPL(INF,INBT);
     	   CNT←0;  JZ←0; RX←INF(0);
        END;
        SCNT←SCNT+INC; 

        IF SCNT > INDR THEN  BEGIN <CHECK TO SEE IF SMPL CNT IS EXCEEDED
           RD←0;  RETURN(RD); END;
         IX ← INF(JZ);
         IZ←1-INT(JZ)+CNT;
            RD←RX+(IX-RX)*IZ;   < INTERPOLATION
        CNT←CNT+INC; <UPDATE THE COUNTER

        IF CNT < INBUF THEN RX←INF(CNT);
	JZ←CNT+1; 

        IF JZ ≥ INBUF THEN BEGIN
           RDSMPL(INF,INBT);
           JZ←JZ-INBUF;  
	   CNT←JZ-1;
	   IF CNT ≥ 0 THEN RX←INF(CNT);
       	    END;
        RETURN(RD); 
     END; 

	OUTFILE←"INC.SND";
      INSTRUMENT READA;
<IF P1 > .5 THEN BEGIN  IF SCNT > 3620 THEN BEGIN PRINT RD;
<IF RD≠0 THEN PRINT CNT; IF RD ≠0 THEN PRINT SCNT;END;END;
      OUTA←OUTA+P4*READIN(RD);
      END;

      SETMAG;1 12
      PLAY;

      READA  0   .2   0  .7   .00025   300  ;
      INC← 2  ;
      SCNT←0; INFILE←"TO"; 

      READA  .2  .2   0  .7   .00025   300  ;
      INC← 2  ;
      SCNT←0; INFILE←"TO"; 

      READA .4  0.13 0  1.5  .00025   300  ;
      INC← 3  ;
      SCNT←0; INFILE←"TO"; 

      READA  .53 .13  0  1.5  .00025   300  ;
      INC← 3  ;
      SCNT←0; INFILE←"TO"; 

      READA .66  .4  0  1.5  .00025   300  ;
      INC←  1 ;
      SCNT←0; INFILE←"TO"; 

      READA 1.06 .4   0  1.   .00025   300  ;
      INC←1;
      SCNT←0; INFILE←"TO"; 

      FINISH;